(describe-function): Make hyperlink to library file

name, if available.

diff --git a/lisp/help.el b/lisp/help.el
index 03824b0e1245ea42d8a88155120eb00e59ccf7c4..3168b92443cdade481203557ccc7c57b49d2cfc0 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -622,7 +622,12 @@ C-w Display information on absence of warranty for GNU Emacs."
          ;; We used to add .el to the file name,
          ;; but that's completely wrong when the user used load-file.
          (princ file-name)
-         (princ "'")))
+         (princ "'")
+         ;; Make a hyperlink to the library.
+         (with-current-buffer "*Help*"
+           (save-excursion
+             (re-search-backward "`\\([^`']+\\)'" nil t)
+             (help-xref-button 1 #'find-function function)))))
     (if need-close (princ ")"))
     (princ ".")
     (terpri)